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DARTE OA ac 


Su contacto con el futuro, 


Porque le ofrecemos hoy nuestra amplia 
experiencia en Asesoría y Servicios Informáticos, 
pensando en el mañana. 

Somos una empresa con una completa gama 
de productos. Con una capacidad profesional 
adecuada para cada necesidad de nuestros 
clientes. 

Aportamos al mercado nacional la más 
moderna tecnología y un constante esfuerzo 
innovador. 

Así, le ofrecemos soluciones útiles, servicios 
eficaces y la máxima rentabilidad. Con visión 
de futuro. 


Madrid: Rosario Piño, 14-16, 5. 28020 Madrid. Tels.: 279 61 00/45 07. Télex: 46739 
Dpto. de Formación y Selección. Orense, 70. 28020 Madrid. Tels.: 279 98 01/02/03 
Barcelona: Roger de Lluria, 50, ático. 08009 Barcelona. Tels.: 318 1500/58. Télex: 93354 
Bilbao: Ledesma, 10 bis, 6. 48001 Bilbao. Tels.: 424 04 42/43. Télex: 34220 


SUMARIO. 


EDITORIAL 

NOVEDADES AMSTRAD 

CUADERNO DE APUNTES .. 

MICROCLASES (Introducción al Basic 11) 

PROGRAMA EDUCACION (Juegue con su tabla 

periódica) 

BAZAR DEL SUSCRIPTOR L 
PROGRAMA SENIOR (El quinielista millonario) ........ EL 
PROGRAMA JUEGOS (El rompe-muros) 

PROGRAMA JUEGOS (El pensador 1) 
PROGRAMA CONCURSO (La armada mata 3: 
AVANCE DE LA PROGRAMACION FABMO NUMERO ..... 
SUSCRIPCIONES 3 


Redacción, Publicidad y Suscripciones: 
Pot 


Edita 
Editorial Cometa, S. A., Zamora, sl Nave 11. h YY IA ol Telét. 276 13 60. 
h % MI 


San Fernando de Henares (Madrid) 


Carmen Sautier-Casaseca. 


Fotocomposi 
Andueza. San Romualdo, 26. 28037-Madrid. 


rim 
rifas. Proa, S.A. Zamora, s/n. Nave 11. 
San Fernando Se Ares (Madrid). 
Producción Cas: 

Gimbel de las pres Gráficas. 

Edad a 


Secretaria de Redacción: Alejandro González, Juan José Sánchez, Paz Pos yo <p o , 245 - 08007 Barcelona 


Cerrill 
Eat Heliodoro Gallego. C/ Serrano, 7165 - 28002 Madrid 


dor 
Pedro Beiielo, David García, Mariano Gómez, Olga e Menocal. Depósito Legal: M-9380-1986 


- de suscripciones 


all Í ) / y 
Queridos lectores: 


Tras la magnífica acogida prestada por nuestros lectores al número 1 de 
Amstradmanía, ofrecemos a ustedes este segundo número con gran i¡lu- 
sión. 

Con él pretendemos dar un paso más hacia la consecución de nuestros 


objetivos, a la par que vamos perfeccionando el contenido de nuestra 
revista, con el fin de hacerla cada vez más amena y completa. 


Continúa en este número el Curso de Introducción al BASIC, iniciado en 
el primero, y ofrecemos a los niños una forma fácil de aprender la tabla 
periódica de los elementos. 


Presten mucha atención al programa de «El quinielista millonario», pues 
introduciendo con facilidad en su ordenador'los datos que le pide este 
juego podrá obtener la quiniela que, por lógica, debe ser la ganadora. En 
sucesivos números irá completándose el programa con el fin de manejar 
una mayor.cantidad de datos.que-acercarán-más.la.lógica.a.la. realidad, 
disminuyendo las posibilidades“de error por laexistencia de-esos factores 
que son conocidos como <«imponderables». 


Como. final esperamos..que..los..aficionados..a..Jos.juegos..disfruten con 
nuestros programas «Rompe=-muros»;, «El-pensador»-y-«El-programa 
concurso». 


Con nuestros mejores saludos nos despedimos de ustedes hasta nuestro 
próximo número 3. 


A, FOLEDR 


y / 


RPA Systems Inc 


RPA Systems Inc, distribuido en 
España por BEBETA, S. A., CO, 
anuncia la próxima salida a la venta 
de los siguientes programas de 
Gestión, Científicos y de Aplicaciones 
para el ordenador Amstrad 8256. 


AMSTRAD 8256 
RPA BRAINSTORM PLUS 


(programa ejecutable únicamente con 
Interproc). 


Programa adecuado para personas 
que necesiten un complemento eficaz 
a la hora de generar, asociar y 
ordenar cualquier idea o sugerencia. 
El programa podría definirse como un 
«procesador de ideas», que le ofrece 
una amplia gama de posibilidades en 
sus trabajos creativos y de 
composición. 


INTERPROC 


Es un novísimo sistema de protección 
de RPA Systems Ltd., 
«imprescindible» para la ejecución de 
algunos programas. 


MAA 


Con una sola unidad «Interproc» 
usted podrá usar toda la gama de 
productos RPA Systems Inc. Para ello 
los programas incluyen un chip, 
exclusivo para él, que deberá ser 
introducido en el Interproc, siguiendo 
atentamente las instrucciones. 


LA MOMIA... 


R.G. INFORMATICA, entre otras 
novedades ha lanzado a la venta las 
nuevas fundas Amstrad CPC-464, 
CPC-6128. Cuenta también con 
INTERFACE 2 JOYSTICK, así como 
el diseño de conexionado Vía Modem 
para empresas entre Amstrad-Amstrad 
y Amstrad-Cualquier ordenador. 


Otra de las novedades ha sido el 
desarrollo de software para cualquier 
sistema operativo. 


BIBLIOGRAFIA AMSTRAD 


RECOMENDABLE 


Hacia la  AWSIRAD 
Inteligencia 
Artificial con 
a 


— CURSO AUTOD DE BASIC CON EL AMSTRAD. 

— PROGRAMANDO CON AMSTRAD. 

— JUEGOS SENSACIONALES PARA AMSTRAD. 

— 40 JUEGOS EDUCATIVOS PARA AMSTRAD. 

— GUIA DE REFERENCIA BASIC PARA EL PROGRAMADOR. 

— MUSICA Y SONIDOS CON EL AMSTRAD. 

— HACIA LA INTELIGENCIA ARTIFICIAL CON AMSTRAD. 

— CODIGO MAQUINA PARA PRINCIPIANTES CON AMSTRAD. 

— CURSO AUTODIDACTICO BASIC ll. 

— PROGRAMANDO BASIC CON AMSTRAD. 

— TECNICAS DE PROGRAMACION DE GRAFICOS EN EL 
AMSTRAD. 
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Cuaderno de apuntes 


SOFT-MSX, revista de microinformática, cuyo fin es divulgar y ayudar al lector, tiene el gusto de presentar su 
«cuaderno de programas». 

Su finalidad es la de posibilitar la conservación y el desarrollo de programas. 

El gran problema que se plantea a cualquier aficionado a la informática es dónde escribir sus programas. 
Soft-MSX ha decidido resolver este problema, ofreciéndoles en cada número una hoja tipo, donde poder archivar 
y anotar sus posibles programas. 

Este cuaderno se divide en las siguientes partes: 


1. Aquí tienen que poner el TITULO _1 
título de su programa. 

2. Descripción del programa, 
pasos, evolución, 
funcionamiento del programa, 
etc. 

3. Número de línea del 
programa. 

4. Pasos, sentencias, órdenes o 
variables correspondientes a 
cada línea. 

5. Zona destinada al 
organigrama para facilitar el 
entendimiento y evolución del 
programa. 


DESCRIPCION -2 


Recomendamos que los 
programas sean escritos con 
lápiz mientras se estén 
inventando, puesto que al hacer 
un programa es inevitable el 
tener que borrar una línea o 
cambiarla. 
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— ESTRUCTURA DE UN ORDENADOR 
CPU 
MC 
UC 
UAL 

— CAMPOS DE MEMORIA 
Alfanuméricos 
Numéricos 

— LOS LITERALES 

— LAS CONSTANTES 

— HARDWARE 

— SOFTWARE 

— ESQUEMA DE UN ORDENADOR 
Fujo de la información 


Es 
O 
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] 

e700 Y 
DOE Y 
O LN 


ESTRUCTURA DE UN ORDE- 
NADOR 


Todo ordenador consta de dos partes fun- 
damentales: la unidad central de proceso 
(UCP) y las unidades de periféricos. 

— La unidad central de proceso se desig- 
na como UCP, en inglés CPU (Central Pro- 
cess Unit). En ella se acumula la información 
y se procede a su tratamiento y ejecución de 
programas. 

— Las unidades periféricas, o simplemen- 
te periféricos (de entrada y de salida), permi- 
ten la comunicación de la UCP con el exte- 
rior. 
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Son imprescindibles para: 

e La comunicación entre el ordenador y el 
usuario. 

e El almacenaje de datos y programas a 
través del tiempo, para que sean perdura- 
bles. 


La UCP, también designada como CPU, se 
considera dividida en tres partes o unidades: 

e La memoria central (MC) o (CM). 

e La unidad aritmético-lógica (UAL) o 
(ALU). 

e La unidad de control (UC) o (CU). 

e la MC: 

En la memoria central se almacenan los 
datos y las instrucciones que forman un pro- 
grama, así como resultados intermedios y fi- 
nales del problema. 

e la UC: 

La unidad de control extrae de la memoria 
las instrucciones, las descodifica e interpreta, 
obliga a que se ejecuten, enviando a la UAL 
las órdenes oportunas. Controla la entrada y 
salida de datos, almacenaje y recuperación 
de programas. 

e La UAL: 

En la unidad aritmético-lógica se realizan 
los cálculos y comparaciones, ordenadas por 
la UC, para lo cual se reciben de la memoria 
los datos necesarios para efectuar con ellos 
las Operaciones requeridas. Los resultados 
de éstas se transfieren a la memoria. 


LOS CAMPOS DE MEMORIA 


— Definición de campo de memoria: 

Un campo de memoria es una parte de la 
misma (o una agrupación de bytes que están 
en posiciones consecutivas de memoria) a la 
que damos un nombre, definimos el tipo de 
campo y en la que podemos almacenar da- 
tos. 


— Tipos de campos: 


Hay dos tipos de campos según los datos 
que podemos almacenar en ellos. Podemos 
definir un campo como numérico o alfanumé- 
rico. 


e Campos alfanuméricos: 


En ellos podemos almacenar todo tipo de 
caracteres: números, letras, caracteres espe- 


ciales (como /, *, %, $, 8, =, +, —, etc.). Pero 
con estos campos no se pueden realizar ope- 
raciones aritméticas, aunque sólo contuvie- 
sen números. 

e Campos numéricos: 

En ellos sólo se pueden almacenar núme- 
ros. Si se intenta almacenar un carácter alfa- 
bético O especial el sistema dará. un error. 


LOS LITERALES 


Los literales son los caracteres alfanuméri- 
cos entrecomillados. Sólo podemos referirnos 
a ellos de manera íntegra; es decir, no pode- 
mos darles un nombre ni direccionarlos. 

EJEMPLO: «LITERAL» «X15» 


LAS CONSTANTES 


Son los dígitos numéricos que escribimos 
directamente. Sólo podemos referirnos a 
ellos de manera íntegra. Coinciden en opera- 
ciones matemáticas con las constantes de las 
fórmulas, como puede ser el número 25 ó 
5,29. 


HARDWARE 


Significa parte dura. Es la parte física del 
ordenador, los componentes electrónicos. 

Por ejemplo: la UCP, el teclado, los interfa- 
ces, unidades de disco, etc. 


SOFTWARE 


Significa parte blanda. Es la parte lógica 
del ordenador, con la que se maneja el hard- 
ware. Son los comandos, instrucciones, pro- 
gramas del usuario y del sistema operativo, 
compiladores, intérpretes, etc. 


———y> 000 
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ESQUEMA DE UN ORDENADOR 


PANTALLA TECLADO IMPRESORA 


T 


. (UC) (MC) Memoria central 
Unidad de 
control 


(UAL) 

Unidad 

aritmético- 

lógica Unidad 
central 

de proceso 


(UCP) 


CINTA DE 
CASSETTE 


MAGNETICA FLEXIBLE 


DISCO 


DISCO 
DURO 


No pierda el tiempo buscando los da- 
tos en la tabla periódica. Con el pro- 
grama JUEGUE CON LA TABLA PE- 
RIODICA tendrá todos los datos im- 
portantes a su disposición, así como 
un test sobre símbolos y elementos 
químicos y una opción para ordenar 
los elementos que quiera por peso 
atómico o electronegatividad. 


OPCIONES: 


1. DATOS: Al pulsar 1 le apare- 
cerá la pregunta ¿SIMBOLO QUIMI- 
CO? Esto, al contrario de lo que pare- 
ce, no quiere decir que tenga que in- 


troducir un símbolo químico; puede 
hacerlo, claro está, pero también se 
acepta que introduzca el número ató- 
mico o el nombre del elemento. En 
los tres casos el resultado será el 
mismo. Si se introduce un dato erró- 
neo el programa le dará la oportuni- 
dad de repetirlo. 
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Los datos obtenidos son: 


— Número atómico. 

— Símbolo químico. 

— Nombre. 

— Peso atómico. 

— Electronegatividad. 

— Estado de oxidación. 

— Configuración electrónica. 


En el apartado «Configuración elec- 
trónica» aparecerá entre corchetes el 
elemento con estructura de gas noble 
más cercano al elemento en estudio y 
después la configuración de la capa 
más externa. Es decir, que el elemen- 
to pedido tiene la configuración del 
elemento entre corchetes, añadiéndo- 
le lo que no está entre corchetes. 


2. ORDEN: Con esta opción pue- 
de ordenar los elementos que quiera 
según el «PESO ATOMICO» o la 
«ELECTROMIGATIVIDAD». Una vez 
escogida la opción ORDEN se le pre- 
guntará el «DATO POR EL QUE 
QUIERE ORDENAR»; en este mo- 
mento debe introducir «PESO» o 
«ELEC», según quiera ordenar por 
«PESO ATOMICO» o «ELECTRO- 
NEGATIVIDAD». 


A continuación pedirá «DATOS» e in- 
troducirá el símbolo, nombre o núme- 
ro atómico del elemento que quiere 
que se incluya en la lista a ordenar; 
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después de haber introducido esto le 
volverá a pedir «DATOS» y hará lo 
mismo, introduciendo otro elemento. 
Terminará de introducir datos cuando 
después de aparecer «DATOS» en 
pantalla pulse <enter> sin haber es- 
crito nada. 


Hay una posibilidad para ordenar da- 
tos cuyo número atómico es consecu- 
tivo, sin tener que teclear todo. Esta 
posibilidad consiste en escribir el pri- 
mer elemento del grupo consecutivo 
seguido de una raya (signo de la res- 
ta), pulsando <enter> y a continua- 
ción pedirá «SIGUIENTE DATO»; en- 
tonces introducirá el último elemento 
de dicho grupo. Inmediatamente sal- 
drá el mensaje «WAST A MOMENT, 
PLEASE»; tendrá que esperar un rato 
(tanto mayor cuanto mayor sea el nú- 
mero de datos a ordenar) a que el or- 
denador clasifique la lista y aparezca 
en pantalla. 


3. TABLA: Esta opción escribe la 
tabla periódica en la pantalla. 


4. TEST: En primer lugar pide el 
número de personas que van a hacer 
el test; después de introducir este nú- 
mero pide los nombres de dichas per- 
sonas; se introducen uno a uno e in- 
mediatamente después empiezan las 
preguntas. Son 10 preguntas para ca- 
da persona, repartidas en grupos de 2 


(Continua en la pag. 19) 
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460 REM 

470 REM INICIALIZACIÓN 

430 REM 

470 FOR N=1 TO 62 READ CABSi¿N)INEXT 

500 FOR n=1 TO 103 

310 READ per$ (nm. 1) 

20 NEXT mn 

530 FOR n=i TO 103 

340 READ per$ (nm. 2) 

350 NEXT ñ 

560 FOR n=1 TO 103 

570 READ 22 per$in-3)=STR$(z) 

350 NEXT n 

570 FOR n=1 TO 103 

600 READ z:per$(n»4)=STR$(z) 

610 NEXT n 

620 FOR n=1 TO 103 


READ per$(n:5) 
NEXT n 
O FOR n=1 TO 103 
READ per$(in: 6) 
.70 NEXT 
30 GOTO 770 3REM escritura de la tabla 
GOTO 1430 
ENU 
O REN 
O REM AA SUERUTINAS 
REM 
O REM 
O REM ESCRITURA TABLA 
O REM 
O MOnE Z 
SO WINDOAN Alo do Do dado 
30 LOCATE Hola 10FRINT Rio 13 5PACES(I4N 32 FRINTO RI USING "4032 
00 LOCATE eos 2 and Bla "H "¡SPACES 5 "He” 
210 LOCATE $la 1 4IPRINT 41.334 BPACES (30) 41 FOR n=S TO YiPRINT dtlons 2NEATIFRINTO$ 
da? "SPRINT sl USING "RR 10 
A LOCATE Hood! li n=3 710 10 
ESO IF n= TREN FRINMT O R1ls SPACES (30); 
FRIA wr Hlopersinmodis" Ya 
BOU LOCATE Hilado ¿IPRINO His uso RR Ud ls 
PRINT do SFACERCIO) 31 FOR n=13 TO 1IPRINT O RisUDING"4 4505 NEXT 
560 LOCATE 2 BA FOR n= 710 13 
IF me13 THEN FPRINT RIA SFACES(3O) + 


FRINT Hiopersinmid" Us 


920 LOCATE Hi» 1. 10:FOR í 
30 LOCATE $1, 2>11:FOR 
740 LOCATE $H1s 1,13: FOR 
750 "LOCATE Hd, 22142 FOR y 
160 LOCATE $121. 16:FOR n 


TO SA4IPRINT $1+USING"$44R "305 2 NEXT 

TO GGIPRINT Hispersins di" "3 NEXT 

TO 54: FPRINT dl USINGURAN ens NEXT 

To pd col a o id a "GS INEXT 

TO OS7IERINT +1. USING A ¿NEXT 
FOR meza EMPRINT OR USING "Rm NEXT 

06 LOCATE Rio 2 171 FOR ne TO S72FRINT Hlopertin>d¿s Us NEXT 
FOR me72 TO SPRINT Hisper$in+1)3% "5 2NEXT 

1000 LOCATE Hielo 122 FOR 187 TO SPIPRINT $1 USINO"484 "53m 2NEXT 

1010 LOCATE Hilo Za 2OLFOR n=287 TO EYEPRINT Hiospertinsldd30 "1 NEXT 

1020 LOCATE +1. 13.20% FOR n=5% TO 71 FRINT RL USING"R4R 50 NEXT 

1030 LOCATE +12 1421: FOR n=38 TO 71UPRINT Hisper$in+1)5" "5 2 NEXT 

11040 LOCATE $1.13, 231FOR n=90 TO S741PRINT +1.USING"HRR o NEXT 

1050 PFRINT Hi" "a 0FOR n=0 TO 31 PRINT 4io CHAS (250) CARS (25030 "NEXT 

1060 LOCATE +12 14. 24:FOR n=30 TO 1O3:PRINT Hioper$inmsd)s” "5 2:NEXT 

1970 GOTO 1450 

1030 ENU 

1070 REM 

1100 REM SIMBOLOS QUIMICO 

1110 REM 

1120 INPUT * SIMEOLO GUIMICO":<IM$ 

1130 WHILE simé$x3"" AND simbis",” 

1140 IF (VAL (s im$) +0) AND(VAL (sim$):<104) THEN indice=VAL(sim$):G0T0 1:60 

1150 IF LEN(SIM$)=1 THEN SIMS=SIM$+" ” 

1140 IF LEN(31IM8$)>2 THEN GOTO 1220 

1170 FOR S=1 TO 103 

1180 IF LIPFER$(PER$ (S, 1))=UPPER$(SIM$) THEN indice=s:GUTU 1260 

1170 NEXT 


IS A] 


A MAA 


a A E E 


1200 
1210 
12Z0O 
1230 
1240 
1250 
1260 
1270 
12DÓ 
1270 
1300 
1310 
13230 
1330 
1340 
1350 
1360 
1370 
13680 
1370 
1460 
1416 
1420 
1430 
1440 
1450 
1460 
1470 
1430 
1470 
1500 
15053 
1510 
13520 
1530 
1535 
4540 
13550 
1560 
13576 
1530 
13570 
1400 
1610 
1630 
1630 
1646 
1650 
1640 
14760 
163 
1470 
1700 


INFUT "repeat please"¿simb 
so 1130 

Ta 103 
IF UPFERS(FERS (o 200 =UPPERS (31M) THEN indice=siGOTO 12640 


FOR 5=1 


NEXT 


GOTO 1200 
PRINT" NUMERO ATOMICO "sindice 
FGR n=1 TO 
EXC 
IF m=4 ANO per$tindices.n)=" 0% THEN PRINT " --"2G0TO 1400 
IF mó THEN FRINT per$tindicesti01 GOTO 1400 

IF VAL iper$(indices nd) 
print=LERTS (per$lindicesn)> 
confis=9010$(per$ (indices: 2sLENiper$lindice»11))-1) 
THEN FRINT 
THEN FRINT 
THEN FRINT 


FRINT 


IF prin$="p" 
IF printé="a" 
¿IF print" 
IE print="x" 
IF priné="p” 
FRINTO" "scontió 

NEXT 


PRINTI INF” SIMBOLO QUIMICO": 31M$ 


WEN: 


G0TO 1450 


ENT 
REM 
REM 
REM 


WINDOW 40256, 30» 
PAPER Gs d1 


EL HO 
PRINTS 

PRINT " 
PRINT " 
PRINT " 
PRINT " 


ab=INKEYS 
IF (a$="")0OR (VAL tad) 


AaTas. 
CRIIEN 
TABLA 
TEST 


opcion=VAL (ah) 


ON opcion GOTO 1120,1370, 720, 3000 


ENT 
REM 
REM 
REM 
CL5 
sub:=0 


FRINT" DIME EL*DATO POR EL” 
PRINT" GUE GUIERES GROENAR" 
INPUT res$irest=UFFERS (rest) 
IF INSTRO"PESG ATORICO. res$i% 
IF INSTR"ELECTRONEGATIVICAD": rest): 


IF sub=0 THEN INFUT "REFEAT FLEASE": res$:GUTO 1670 
REM 


20 THEN FRINT per$tindicesnm)! 


THEN FRINT 
TREN PRINT 


lo sí 


FEN +0,60 


PE TONES "2 PRINT 


DOR(VAL (aé)54) THEN GOTO 1540 


OPCIONES SORT 


50 AND res$<:"" THEN sub=3 


¿50 AND res$<2"" THEN sub=4 


1710 REM 
1720 REM 
1730 flag=1:conta=0 
1740 INFUT "DATOS"sdato$ 
1750 WHILE (flag=1)AND(dato$<>"") 
1760 conta=conta+l 
1770 IF RIGHTS (dato$,1)="-" THEN dato$=LEFTS(dato$,LEN(dato$)-1):flag=2 
1760 IF (VAL (dato$) +0) AND(VAL (dato$)<104) THEN aux(conta)=VAL (dato$):0N flag G 
OTO 1880, 1390 
1790 subin=1 
1300 IF LEN(dato$)¿2 THEN dato$=dato$+" ":subin=1 
1510 IF LEN(dato$)>2 THEN subin=2 
1820 FOR x=1 TO 103 
1830 IF UPFERS (pers (x, subir) )=UPFERS(dato$) THEN aux(conta)=x:0N flag GOTO 
1880, 1890 
1340 NEXT 
1350 INPUT "repeat please";dato$ 
1360 conta =conta-1 ¿REM para que no aumente conta en 2 
1870 GOTO 1870 
1830 INPUT "DATOS": datos 
1390 WEND 
1900 IF flag=2 THEN GOSUE 1970: REM DATOS CON RAYA 
1710 GUSUB 2190: REM ORDENACIÓN 
1920 GOSUB 2300: REM ESCRITURA 
1930 PRINT:PRINT "PARA CONTINUAR PULSAR UNA TECLA" 
1940 as$=INKEYS 
1950 IF a$="" THEN GOTO 1940 ELSE GOTO 1450 
1760 END 
1970 REM 
19860 REM DATOS-CON-RAYA 
1990 REM 
2000 subin=1 
2010 IF conta=1 THEN conta=2 ELSE conta=conta+l 
2020 INPUT"SIGUIENTE DATO":dato$ 
2030 IF dato$="" THEN numero=103:G0T0 2120 
2040 IF (VAL (dato$) >0) AND (VAL (dato$)“104) THEN aux (conta) =VAL (dato$):numero=aux(c 
“onta):GOTO 2120 
2050 IF LEN(dato$)<2 THEN dato$=dato$+" ":subin=1 
2060 IF LEN(dato$)>2 THEN subin=2 
2070 FOR x=1 TO 103 
2080 IF UPPERS (per$(x+subir))=UPPERS(dato$) THEN aux(conta)=x3+numero=x:G0TO 2120 
2090 NEXT 
2100 INPUT "repeat please":dato$ 
¿114 LOTU 200 te 
2120 IF conta=1 THEN indi=2 ELSE indi=conta 
2130 conta=conta-1 
2140 FOR x=aux(indi-1)+1 TO numero 
2150 conta=conta+l 
2160 aux(conta)=x 
NEXT 
2150 RETLIRN 
REM 
REM ORDENAC ICIN 
REM 
PRINT:PRINT " WAIT A MOMENT+PLEASE " 
FOR x=2 TO conta 
O FOR y=conta TO x STEP -1 
IF VAL (pers (aux (y-1) > sub) )<=VAL (per$(aux (y) + sub)) THEN GOTO 2270 
au=aux (y-1)1aux(y-1)=aux(y)iaux(y)=au 
NEXT 
¿0 NEXT 
RETURN 
REM 
REM ESCRITURA 
REM 
PEN 1:PAPER O 
MODE 2 
2350 GOSUB 2500: REM rabecera 
FOR a=1 TU conta 
IF A MOD 21 =0 THEN PRINT ELSE GOTO 2400 
380 PRINT "scroll 9" 
IF INH THEN GOTO 2376 ELSE £LS:GOSUB 2500 
G "RAR sana la) y 2 PRINT TAB (6) per$(aux(a)+1); 
10) perbílauxla)»2)3 
4 
"0% THEN GOTO 2450 
PRINT TA 10) 1 A RIBA VAL (perób(aux(a)»5))31G0T0 2460 
2450 PRINT E 
2460 


CABECERA 


ELECTRONEG" 


borrar valores de jug% 
tas personas” (maximo 10) "persona: 1F persona%>10 OR persona%<1 


Introducir los nombres” 
TO personali INFUT names (1) ¿NEXT 
TOS 


=1 TO personal 


Pregunta "11%" para "snmameb(y%) +PRINT 
GOSUB 10000:3REM coeficientes aleatorios 
preg$=per$(ele%,2) 
PRINT"Cual es el simbolo quimico correspondiente al "spreg$:" 
INPUT res:res=UPPERS (res) Ñ 
IF LEN(re$)=1 THEN res=re$+" " 
IF UPPERS$ (per$tele,1))=re6 THEN jugr(y%)=)409%(y%)+1:PRINT"Correcto" ELSE 
"No» es el ":persleles»1) 
GUSUB 10000:REM coeficientes aleatorios 
pregó=pert(ele%. 1) 
PRINT"Cual es el nombre del elemento representado por "spreg$;" 
3160 INFUT re$:re$=UFP 
3170 IF UPFERS (per$ielez 
FRINT"No» es el ":per$telez 


3175 FOR retardo=1 TO 1000:3NEXT 
dic NEai 
3190 INPUT "FULSAR ENTER PARA SEGUIR"senter$ 
3200 NEXT 
3300 "> FRINT:PRINT"RESULTADOS":PRINT 
3350 FOR x%=1 TO pers 
3360 PRINT names (1%)3" ":jug(x%);" puntos "; 
3370 GOSUB 5000:REM mensajes 
3380 NEXT 
3390 INPUT"PULSAR ENTER PARA CONTINUAR":enter$ 
3400 GOTO 1486 
4970 REM 
4973 REM MENSAJES TEST 
4776 REM 
5000 IF jug%(x%) THEN FRINT" MUY MAL!" 
5010 IF jug%Od)o=2 AND jug(x%)<=4 THEN FPRINT" INSUFICIENTE, REPASA LA TABLA" 
5020 IF jug%(x%) 4 AND juga) THEN FRINT"BIEN, PERO PUEDE SER MEJORADO" 
5030 1F jugta) 76 AND jug (a) <= THEN FRINT"MUY BIEN!" 
5040 1F jug%(x%)53 THEN FRINT"EXCELENTE!" 
5050 RETURN 
S REM 
REM BORRAR VALORES DE JUG% 
REM 
FOR x%=1 TO 10% jug%(x%)=0:NEXT 


COEFIC. ALEATORIO 


77 
10000 RANDOMIZE TIME 


O IF ele%.103 THEN 10010 
10030 RETURN 


preguntas cada vez, es decir, hay 5 
rondas de preguntas. Al final se obtie- 
ne los resultados del TEST para cada 
uno de los que lo han hecho. 


NOTA: 1. Debido a que en el pro- 
grama se usa varias veces una venta- 
na de texto y pensando en que puede 
querer acceder al listado. Para que 
esto le sea más cómodo se ha redefi- 
nido <CTRL> <ENTER>, de mane- 
ra que al pulsarlo la pantalla se pone 
en modo 2 y se intercambia el color 
de pluma y papel. 

2. Debido a la cantidad de datos al- 
macenados en memoria al ejecutar el 
programa, si desea salir del mismo y 
ejecutar un comando SAVE o LOAD o 
similar notará que el ordenador pare- 
ce que se queda bloqueado. No es 
esto lo que pasa, sino que tarda bas- 
tante en ejecutar estos comandos. 
Para evitarlo tiene que teclear CLEAR 
y a continuación realizar el SAVE o 
LOAD que deseaba. 


1] NOMDEIE! ...c.eciocioicononnra ión 1 : 
yA A ha 
? pd NO isso 
? Localidad. outra Di Plica 
DA Provincia ............. 


3 Teléfono 


Soy suscriptor de la 
revista  - 
AMSTRADMANIA y 
deseo hacerme 
socio del «club», 
para lo cual ruego 
me sea enviado el 


! 
carnet. ha 


EL QUINIELISTA 
MILLONARIO 


Este programa va dirigido a los 
amantes de las quinielas y en 
particular a aquellos que gustan de | 
probabilidades y estadísticas. 

Esperamos que le resulte divertido 
y sobre todo práctico. 


Dentro del programa le damos las 
instrucciones necesarias para que 
elabore su quiniela basándose en 
criterios lógicos; esta quiniela le 
puede hacer ganar, pero nunca 
hacerse millonario. 


A continuación elaboramos otra 
totalmente i¡lógica, ésta es la fuente 
de su fortuna. 


¡ANIMO Y SUERTE! 
NOTA: Rellene siempre las dos. 
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BORDER 1: MODE O 
LOCATE 5,72 
PRINT "AMSTRADMANIA” 
LOCATE 7,10 
PRINT "presenta” 
GOSUB 910 
FOR z=1 TO 3000:NEXT z 
MODE 1 
PRINT STRING$(40,127) 
FOR z=2 TO 23:LOCATE 1,z 
PRINT CHR$(127); SPACES (38) ;CHR$(127); 
NEXT z:PRINT STRING$ (40,127) 
LOCATE 10,11 
PRINT "QUINIELA DE LA SEMANA” 
FOR z=1 TO 3000:NEXT z 
BORDER 1 
cLS 
MODE 2 
PRINT SPACES$(18); "COMENTARIOS SOBRE El PROGRAMA”: PRINT 
PRINT "El programa pretende, de acuerdo a una base logica,” 
PRINT "pronosticar los 14 signos de la QUINIELA.”:PRINT 
PRINT "Este pronostico dependerade una serie de variables” 
PRINT "que se le suministraran al ordenador a lo largo de” 
PRINT "la ejecucion del prozrama.":PRINT 
PRINT "Una vez introducidas estas variables, el ordenador” 
PRINT "las evaluara y emitira un pronostico de acuerdo con” 
PRINT "dicho estudio. Este pronostico es del todo tipo” 
PRINT "lcgico, no obstante tembien se listaran unos” 
PRINT "resultados que pueden ser algo sorprendentes.” 
PRINT "Cuando scbre un partido se le pregunte sobre el” 
PRINT "equipo, usted debera introducir el nombre ” 
PRINT "de diche equipo, a continuacion se le formularan” 
PRINT "unas preguntas referidas a los encuertros que este” 
PRINT "equipo ha jugado en casa.” 
PRINT "Lo mismo ocurre con el equipo visitante, con la” 
PRINT "salvedad que ahora las preguntas se referiran” 
PRINT "a los partidos jugados por este equipo fuera de” 
PRINT "casa”":PRINT:PRINT SPACES(1é6);"para comenzar pulse la tecla CTRL” 
IF INKEY(23)<>0 THEN 390 
DIM t$(28),r$(194),p$(13) 
x=1:y=1:b=1 
MODE 1 
WHILE x<29 
CcLS 
LOCATE 19,1:PRINT "casilla no..”;b 
PRINT:PRINT 
INPUT "Equipo local";t$(x) 
GOSUB 850 
ptos1=19-putmo+2X%g9-3Xp-e:x=x+1 
PRINT:PRINT:PRINT 
INPUT "Equipo visitante”";t$(x) 
GOSUB 850 
ptos2=19-putmo+3Xg+e-2%p:x=:+1 
IF ptosi>ptos2 THEN rs$(y)="1"” 
IF ptosi<ptos2 THEN r$(y)="2" 
IF (ptosi-?<ptos2)AND(ptosi+7?>ptos2) THEN r$(y)="x" 


3570 y=y+1:b=b+1 

580 WEND:CLS 

390 BORDER 8 

600 MODE 2 

610 PRINT STRINGS$(80,"X”) 

620 PRINT SPACES(25); "QUINIELA DE LA SEMANA": PRINT:GCUSUB 760 
6430 PRINT:PRINT:PRINT SPACE$S(26);"pulse enter” 
63490 IF INKEY(18)<>0 THEN 640 

630 CLS 

660 PRINT STRINGS$(80,"X”):PRINT 

670 PRINT SPACES(25);"''HAGASE MILLONARIO! '”":PRINT:PRINT 
680 FOR y=1 TO 14 

690 p$(y)=r$(y) 

700 NEXT y 

710 FOR y=1 TO 14 

720 ré(y)=p$(15-y) 

730 NEXT y 

740 GOSUB 760 

750 END 

760 y=1:x=1 

770 WHILE xx<29 

780 PRINT SPACES(15);t$(x);SPACES(1é-LEN(t$(x)))3"-";t$(x+1);SPACES(1é6-LEN 
1)))5%......"3r$(y) 

790 y=y+1:x=x+2 

800 WEND 

810 FOR z=0 TO 200 

820 SOUND 1,z,1,12 

830 NEXT z 

"840 RETURN 

850 INPUT "Puesto que ocupa er: la tabla”;pu 
860 INPUT "Moral (1..18)";3mo 

865 IF mo>18 OR mo=0 THEN GOTO 250 

870 INPUT "Partidos ganados”;yg 

880 INPUT "Partidos empatados”;e 

890 INPUT "Partidos perdidos”;p 

900 RETURN 

910 FOR a=0 TO 2 

920 FOR t=1 TO 2? 

930 READ nota 

940 SOUND 2,nota/2+ta 

950 SOUND 2,nota/10 

960 RESTORE 

970 NEXT 

9735 NEXT E 

980 DATA 3417,282,223,219,289,332,28€9 

990 RETURN 


Zx MEIATIA. 


PONEMOS a tú disposición 
el mejor equipo de especialistas: 


AMSTRAD. Apricot 


y compatibles PC. 


Tenemos el software, que neceyita le el ma- 


yor partido a tu AARAD € OBASEII- NORÓ STAR -MULTI- 
PLAN-COBOL- FORTRAN- E.T.C.)> 
SOFTWARE PE GESTION 


HERMOSILLA 75-11" ofna.14 
tfn . 2764394 - 4350470 


MADRID 28001 


ROMPE-MUROS 


Se trata de un sencillo frontón, en 
el que la pelota va rompiendo un 
muro. 


Cuando hayas roto el muro, menos 
dos ladrillos, habrás ganado una 


copa. El ordenador edificará 
rápidamente otro muro con una fila = 
más de ladrillos, y otra vez a y , 


Y o 
empezar. Te parecerá que hay Ds 
poco sitio reservado para las 
copas, pero seguro que no llenas. 
¡SUERTE! E 
Alo  * 
MOYA 


e 
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Y OSYMEUL AFTER 250 


190 
110 
120 
130 
140 
156 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
2% 
28h 
290 
300 
210 
320 
334 
340 
350 
360 
374 
380 
390 
400 
419 
420 
430 
440 
450 
460 
470 
430 
490 
5u0 
516 
520 
530 
549 
550 
56 
570 
580 
59m 
600 


SYMBOL 2390,60.24,24,24,84,126 
SYMBOL 251,64,60, 1:33, 235, 189, 189, 189, 126 
SYMBOL 252,24,50,126,126,126,126,60.,29 
SYMBOL 253,1,31,12/.255,255,224 
SYMBOL 34,128,248, 254,255, 255,7 
S/MBOL 255,6,126,126, 941,99, 126,126 
PS=CHR SC 2520 
rá=CHRS( 2593 5+CHRS1 131 +0 HRS 254) 
BORDER 1 

INK 4,1 

INK 1,26 

INK 2,23 

INK 3,17 

INK 4,15 

IMK 5,13 

IHNK £6,6,13 

INK 7,17 

SPEED INK 5,5 

MODE M:b=4 

PEN 7 

LOCATE 9, 3:PRINT"ROMPE - MUROS" 
LOCATE 2.24:PRINT"Alesanidro Gonzalez"; 
FEN 5 
LOCATE 3, 

LOCATE 3, 

PEN 4 
LOCHTE 5,%:PRINT"DERECHA ¿0.2 
LOCATE 5. 11:PRINT"IZGUIERDA <47" 
LOCATE S.13:PRINT"Co Jowstick 3" 
PEN 6 
LOCATE 3,19:PRINT"+Pulsa una tecla" 
a$=INKEVS: IF 23%="" THEN 330 
LLS:PEN 7 
LOCATE 6,25: PRINT"ROMPE - MURLDS" 
DIM Hi 44,25) 
PEN 5 
FOR z=22 TO 2 STEF -1 
LOCATE 4.z:PRINT CHRS 1385 
Ai4,z0=1 
NEXT 
FOR z=24 TO 3 STEP -1 
LOCATE 20,2 :PRINT CHRS$ 1330 
AL20,z0=2 
NEXT 
LOCATE 9.2:PRINT CHRSC 13575 
FOR z=5 10 19 
PRINT CHRsc 14005 
Az 2033 
NEXT 
PRINT CHRS 132) 


eri STRINGS 15,216 %5 


PRINT STRINGS 15,218); 


LOCATE 1,23:PRINT STRING% 3, 140: HR91 1925 
LOCATE 5,24 :PRINT CHAR: 154 STR INGA 13,154 1 LHRBC 156 > 


PEN 4 

LOCATE 2,25:PRINTUB  " 

PEN 3 

FOR z=5 TU 19 

FOR 10235 TO 5+bo 

LOCATE z.w:PRINT CHR5 2550 
Az )=4 

NEXT 

NEXT 

a=11 

x=l2iy=22 

1=1:4=-1 

PEN 2 

LOCHATE a.23:PRINT rs 
Ha. 23 )= 

Aca+1,23 

Alar2 23) 

t=4 

FEN 4 

LOCATE 9 :PRINT O" Y 

e ME a E] 

PEN 1 

LOCATE x.4:PRINT PS 

IF u=22 THEN 127 

IF INKEVC22 21 0R JOG =3 THEN 1059 
IF INKEVC 34451 OR JOYC6)=9 THEN 1189 


IF Axl 9 7=1 OR Aix+l 4 =2 THEN 310 ELSE 836 


SOUND 7,300,5,10+,,5: 

a 

IF t=1 THEN t=4:G0TO 714 
IF Ho 20=3 THEN j=s4HBSC 4) 
IF Ax 102073 THEN 280 
SOUND 7,340,5,16,,,5 
4=1:GOTO 71M 

IF Ars 1 005 THEN 914 
SOUND 7,705,105 
43-1:G0T0 710 

IF Mix. 4+10=6 THEN 930 

IF Hox+lo a+ 1000 THEN 950 
SOUND 7,30.5,15,..1 
1=lij=- 
t=1:GOTO sen 

IF Aix .9+10=7 THEN 95m 

IF Axl 441057 THEN 1019 
SOUND 7,30,5,15,.,1 
i=1:=-2 

t=1:G0TO 348 

IF Aix 054 THEN 7146 

da HABS 

E 

SOUND 7.30,5,10 

v=4+1 

PEN 4 

LOCATE 1,25:PRINT 0 

IF w=(b+1k15-2 THEN 1440 ELSE 710 

IF 2716 THEN a=165 

PEN 2 

LOCATE a2,23:PRINT" "jrs 

a=a+l 

Aa-1,230=0 

A(a,23)=6 

Ma+l.23)=3 


AtCa+2,23)=7 

GOTO 800 

IF a<6 THEN a=6 

PEN 2 

LOCATE a-1,23:PRINT rs;" " 
a=a-1 

ACa,23=6 

Acta+1.23)=5 

A(a+2,23)=7 

ACa+3,23)=0 

GOTO 804 

ERASE A 

MINDON £0,5,19,2,23:CL5 
PEN 5 

LOCATE 7,S:PRINT"S1" 
LOCATE S,7:PRINT"quieres" 
LOCATE 4,9:PRINT"continmuar" 
LOCATE 6,11:PRINT"Pulsa" 
LOCATE 5,15:PRINT"CENTERI" 
IF INKEYC182=-1 THEN 1355 
CLs 

veu 

b=4 

WINDOW £0,1,20,1,25 

FOR z=1 TO 22 

LOCATE 2,z:PRINT" " 

NEXT 

GOTO 360 

ERASE H 

WINDOW £0,5,19,3,23:0LS 
b=b+1 

u=4 

WINDON £6,1,.24,1,25 

PEN 5 

LOCATE 2,32-2Xb:PRINT CHRS: 25m + 
LOLCATE 2,31-24b:PRINT CHESS 2510 
GUTO 360 


EL PENSADOR -] 


El objetivo de este programa es 
hacerle pasar un rato entretenido y 
a la vez que repasar su cultura; le 
ayudará a ejercitar la memoria. 


El juego consiste en una serie de 
preguntas tipo test, donde se darán 
tres soluciones, pero una sola 
correcta. 


Dado que las preguntas pueden 
ser interminables, daremos a este 
juego tratamiento de sección fija, 
dedicándose cada mes a una 
materia diferente. 


El juego está pensado para que 
puedan participar varios jugadores 
con diferente grado de cultura y 
edad, por lo que las preguntas irán 
elaboradas con diferentes niveles 
de dificultad. 


¡Consigue ser el pensador! 
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EL PENSADOR-I 
por PAZ CERRILLO 


GOSUB 78: ? ir a establecer colores 
CcLS 
LOCATE 1,10 
PRINT ” EL PENSADOR” 
PRINT 
PRINT 
PRINT (el juego de las preguntas ” 
PRINT 
PRINT ” y respuestas)” 
NmrPreguntas=50 
DIM preguntas$(NmrPreguntas,4),respuesta(NmrPreguntas),HaSalido(NmrPreguntas) 
REM leer preguntas y respuestas 
FOR i=1 TO NmrPreguntas 
preguntas$(i,1) 
preguntas$(i,2) 
preguntas$(i,3) 
preguntas$(i,39) 
respuesta(i) 
HaSalido(i)=0 
NEXT i 
PRINT:PRINT:PRINT 
INPUT ” COMO TE LLAMAS”; nombres 
nombre$=UPPERS(LEFTS(nombre$, 1))+LOWERS(MIDS(nombre$,2,10)) 
n=0 : ? inicializar el contador de preguntas que han salido 
REM sacar una pregunta al azar 
IF n= NmrPreguntas THEN n=0: GOSUB 23 
n=n+1 
p=INT(RNDXNmrPreguntas)+1 
IF HaSalido(p)=1 THEN 32 
ELSE HaSalido(p)=1 
GOSUB 61: ”? ir a presentar pregunta 
PRINT:PRINT:PRINT 
PRINT ” CUAL ES LA RESPUESTA, "3nombres$;”>?" 
LOCATE 5,249 
PRINT "XXXX PULSA <0> PARA ACABAR XXXX " 
a$=INKEYS: IF a$=""” THEN 39 
IF a$="0” THEN CLS:END 
a$=UPPERS (as) 
IF a$<>”"A” AND a$<>"B” AND a$<>"C” THEN LOCATE 1,1:PRINT CHR$(7);CHR$(7) : GOTO 


00N0o0g0p20N- 


r=ASC(a$)-694;: ? ascí(”A”)=65; asc(”B”)=66:asc(”C”")=62 
REM 
REM presentar respuesta 


LOCATE 1,10 
IF r<>respuesta(lp) THEN INK 0,24:PRINT” OO0OHHH !!!1*":PRINT:PRINT” TE HAS EQ 
UIVOCADO”:GOTO 55 
INK 0,26, 1 
SPEED INK 10,10 
PRINT" MUY BIEN! !":PRINT:PRINT”. HAS ACERTADO” 


s . 
FOR esp TO 1500: NEXT espera 


= 
GOSUB 78 ir a reestablecer los colores iniciales 
GOTO 30: otra pregunta 


REM 

REM presentar pregunta 

REM 

CcLS 

PRINT:PRINT:PRINT:PRINT 

PRINT preguntas$(p,i) 

PRINT:¿PRINT:PRINT:PRINT 

PRINT ” a.-"j preguntass$(p,2) 

PRINT 

PRINT ” b.-"; preguntas$(p,3) 

PRINT 

PRINT " ' c.-”3 preguntass$(p,4) 

PRINT:PRINT:PRINT 

RETURN 

REM 

FOR i=1 TO NmrPreguntas 
HaSalido(i)=0 

NEXT i 

RETURN 

REM colores 

MODE 1 

BORDER O 

PEN O 

PAPER 1 

INK 0,1: INK 1,24 


DATA " CUAL ES LA CAPITAL DE BRASIL?","BRASILIA”,"RIO DE JANEIRO”, "BUENOS AIR 
ES”,1 
87 DATA ” EN QUE CONTINENTE SE ENCUENTRA LA COR-  DILLERA DE LOS ANDES?”,”AMERIC 
A",”"ASIA”, "EUROPA", 1 : 
88 DATA ” EL RIO VOLGA DESEMBOCA EN EL”","OCEANO ATLANTICO”, "MAR MEDITERRANEO”, "M 
AR CASPIO",3 
89 DATA " DE TODOS ESTOS PAISES, CUAL CREES TU QUE TIENE MAS PETROLE0O?”, "FRAN 
CIA","LA INDIA","ARABIA SAUDITA”,3 
90 DATA ” QUE PALABRA NO ESTA RELACIONADA CON LAS OTRAS?”, "ESCOCIA", "GALES”, 
"ISLANDIA”,3 
91 DATA " QUE PALABRA NO ESTA RELACIONADA CON LAS OTRAS?”,"PARIS”, "MOSCU”,”C 
HINA”",3 
92 DATA " CUAL DE ESTOS IDIOMAS NO ES EUROPEO?”,"FRANCES”,”ALEMAN”",”CHINO”, 3 
93 DATA " QUE PAIS ES MAS GRANDE?"”,"ESPANA”,"FRANCIA”, "SUIZA”,2 
94 DATA " SI TE QUIERES BANAR EN LA PLAYA, A QUE PAIS NO IRIAS?”,”REINO UNI 
DO","ESTADOS UNIDOS”, "HUNGRIA”,3 
95 DATA " QUE PAIS ES ASIATICO?”, "ECUADOR", ” ISRAEL”, "ANGOLA”, 2 
96 DATA " EL RIO NILO PASA POR","RUSIA”,"EGIPTO”,"LA INDIA”",2 - 
97 DATA " QUE MONEDA NECESITARIAS PARA COMPRAR UN REGALO EN RUSIA?”,"DOLARES” 
, "YENS","RUBLOS”,3 
98 DATA " EN CUAL DE LOS SIGUIENTES MESES TIENE LUGAR UN EQUINOCCIO?”, "ENERO”, 
"AGOSTO", "SEPTIEMBRE",3 
99 DATA ” QUE PALABRA NO TIENE RELACION CON LAS OTRAS?",”TROPICO DE CANCER",*"M 
EDIDIANO DE GREENWICH”,"ECUADOR”,2 
100 DATA " CUAL DE ESTOS ASTROS ES UNA ESTRELLA?","TIERRA”,"LUNA”, "SOL ”,3 
101 DATA " SI VIVES EN MURCIA, A QUE OTRA CIUDAD TARDARIAS MAS EN LLEGAR EN CO 
CHE?", "ALMERIA", "OVIEDO”, ”ALICANTE”,2 Ñ 
102 DATA ” CUAL DE ESTOS PAISES TIENE CLIMA TRO- PICAL?","CUBA”,”SAHARA”, "CHIN 
A"si 
103 DATA " DONDE PUEDES ENCONTRAR UN CANGURO? (ademas de en el zoo, claro)” 
, "EN YUGOSLAVIA”, "EN ARGENTINA","EN AUSTRALIA”,3 
104 DATA " EL RIO DANUBIO DESEMBOCA EN EL ”","MAR NEGRO”,"MAR ROJO”, "MAR ADRIATIC 


o",1 

105 DATA " CUAL ES EL PLANETA MAS PROXIMO A LA TIERRA?”, "JUPITER”, "VENUS", "M 
ERCURIO",2 

106 DATA " LA LINEA IMAGINARIA LLAMADA ISOBARA UNE LOS PUNTOS DE LA TIERRA € 
ON IGUAL”,"PRESION ATMOSFERICA”, "TEMPERATURA", "CLIMA 

ed 


107 DATA ” CON CUAL DE ESTAS CIENCIAS ESTA RELA- CIONADA LA PALABRA ?borrasca” 
?","METEREOLOGIA”, "TOPOLOGIA”, "ASTROLOGIA”, 1 


108 DATA ” QUE PALABRA NO ESTA RELACIONADA CON LAS OTRAS?"”, ” TERREMOTO”, "MARE 
MOTO”, "VOLCAN”,2 
109 DATA ” CUAL DE LAS SIGUIENTES ZONAS TERRES- TRES TIENE MAYOR DENSIDAD DE 


POBLACION?", "EUROPA CENTRAL”,"”"AUSTRALIA”, "SIBERIA”,1 


110 DATA " EN CUAL DE ESTOS PAISES NO SE HABLA EL. CASTELLANO COMO LENGUA OFICIA 
L?","BRASIL”,"ARGENTINA”, "CHILE", 1 

111 DATA ” CUAL DE ESTOS RIOS ESPANOLES NO DESEM- BOCA EN EL ATLANTICO?", "EBRO" 
, "TAJO", "GUADALQUIVIR", 1 

112 DATA " QUE ES LA SARDANA?”,”UN BAILE FOLKLORICO CATALAN”, "UN PLATO TIPICO CA 
TALAN”, "UN BAILE TIPICO GALLEGO”, 1 

113 DATA ” EL CASTELLANO, JUNTO CON EL CATALAN, EL GALLEGO, EL ITALIANO, EL P 
ORTUGUES, EL RUMANO, ES UNA LENGUA DE ORIGEN”, ”ESL 

AVQ”, "ANGLOSAJON”, "ROMANICO”, 3 

114 DATA ” QUE PALABRA NO ESTA RELACIONADA CON LAS OTRAS?","BARRACA”, "CASERO 
", "EDIFICIO”,3 

115 DATA ” QUE PROVINCIA NO ES ANDALUZA?","SEVILLA”, "MURCIA”, "ALMERIA”,2 

116 DATA " SUPON QUE ESTAS DE VIAJE POR LA ATMOS- FERA, QUE CAPA NO ENCONTRARIS 
EN DICHO VIAJE?”,"TROPOSFERA”, "ESTRATOSFERA”, "LITO 

SFERA",3 

117 DATA ” CUAL DE ESTOS SISTEMAS MONTANOSOS ESTA EN EUROPA?”, "LGS ANDES”, "EL A 
UCASO"”, "EL HIMALAYA”, 2 

118 DATA ” CUAL ES LA MONEDA OFICIAL DE ALEMANIA?"”, "LIBRA ESTERLINA”, "ESCUDO”, "M 
ARCO", 3 

119 DATA ” LA LIRA ES LA MONEDA OFICIAL DE”, ”AUSTRIA”, "PORTUGAL", "ITALIA”,3 

120 DATA " CUAL DE ESTAS MONEDAS NO ES EUROPEA?”,"DOLAR”, "FRANCO", "PESETA", 1 

121 DATA " CUAL ES LA CAPITAL DE SUECIA?","ESTOCOLMO”,”OSLO”, "HELSINKI", 1 

122 DATA ” DE QUE PAIS ES CAPITAL *Berna””?","”CHECOSLOVAQUIA”, "SUIZA”, "SUECIA”,2 


123 DATA " CUAL DE ESTOS PAISES EUROPEOS ES MAS GRANDE?",”URSS”, "ESPANA”, "ITA 
LIA”, 1 

1294 DATA " QUE PAIS DE LOS SIGUIENTES NO FORMA PARTE DE LOS TRES QUE CONSTIT 
UYEN EL ? BENELUX”? ?", "BELGICA”, "HOLANDA”, "DINAMARC 

A”,3 


125 DATA " QUE PAIS NO PERTENECE A LA C.E.E?”,"FRANCIA”, "ALEMANIA OCCIDENTAL”, ”H 

UNGRIA”,3 

126 DATA ” CUAL DE ESTOS RIOS AMERICANOS ES MAS LARGO?”, "MISSISSIPPI-MISOURI” 
, " AMAZONAS” , "PARANA-PARAGUAY”,2 

127 DATA " DE TODAS ESTAS LENGUAS, CUAL CREES TU GUE SE HABLA POR MAYOR NUMERO 
DE HABITA-TES EN AMERICA?”,"”"ESPANOL”","FRANCES”, "POR 

TUGUES”, 1 

128 DATA " SANTIAGO ES LA CAPITAL DE”, "VENEZUELA”,”"CHILE”,”ARGENTINA”,2 

129 DATA " QUE PAIS ES MAS GRANDE?","ARGENTINA”,"CANADA”, "CUBA", 1 

130 DATA " TIENES UN AMIGO EN DAMASCO AL QUE QUIE- RES VISITAR. A QUE PAIS IRIAS 
A VERLE?"”,”"IRAN”,"LIBANO”,"SIRIA”,3 

131 DATA " EN QUE CONTINENTE ESTA EL IRAN”, "AMERICA", ”"ASIA”,"AFRICA”,2 

132 DATA " EL RIO Obi ES UN RIG","ASIATICO”, "EUROPEO”,”AFRICANO”, 1 

133 DATA ”" EL CLIMA MONZONICO ES UN CLIMA TIPICO DE ","ASIA”,”"EUROPA”,"AFRICA” 


134 DATA " EL CONTINENTE MAS POBLADO ES”,”EUROPA”,"AMERICA”,"ASIA”,3 

135 DATA ” LA MAYOR PARTE DE LA POALACTOS ASIA- TICA ES DE RAZA",”"AMARILLA”,” 
BLANCA”, "NEGRA”, 1 

136 DATA " EN QUE PAIS ESTA Ginebra?","SUIZA","FRANCIA”, "ALEMANIA”, 1 


Con este programa pretendemos a 
la vez de entretener al aficionado, 
hacer pensar y familiarizarle con el 
mundo del ordenador. 


Al final del programa planteamos 
una serie de incógnitas, que serán 
resueltas en el próximo. 


«MANDE SUS SOLUCIONES A 
NUESTRA EDITORIAL Y SI SON 
CORRECTAS PREMIAREMOS SU 
ESFUERZO CON UNA 
SUSCRIPCIÓN Y LA 
PARTICIPACION EN NUESTROS 
SORTEOS.» 


El juego consiste en localizar «LA 
ARMADA INVENCIBLE». 


Dicha Armada consta de los 
siguientes barcos: 


1. 1 barco de 4 posiciones, 
PORTAVIONES. 

2. 2 barcos de 3 posiciones, 
FRAGATA. 

3. 3 barcos de 2 posiciones, 
TRAGAMINAS. 

4. 4 barcos de 1 posición, 
SUBMARINOS. 


Estos barcos no pueden estar uno 
junto al otro; al menos debe existir 
un espacio, AGUA, entre ellos. 
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Al comenzar el juego aparecerá el 
cuadro de mandos, siendo en éste 
donde en cada momento se tendrá 
una visión de la situación del 
juego. 


En el cuadro de mandos siempre 
habrá un indicador (o cursor) de 
color amarillo que le indicará en 
qué cuadrícula se encuentra; este 
cursor se puede desplazar por 
medio de las teclas que tienen 
dibujadas unas flechas (las teclas 
del cursor). Una vez que tenga las 
coordenadas deseadas se pulsa la 
tecla COPY y en pantalla 
aparecerá lo sucedido. 


Si en esas coordenadas no hay 
localizado ningún barco aparecerá 
un punto y en la parte inferior de 
la pantalla se le comunicará este 
fenómeno con AGUA. Si existiera 
un barco le aparecería en la 
pantalla un “1” y en la parte 
inferior de la misma se le 
comunicará el fenómeno con 
TOCADO, si fuese un barco de 
más de una posición y todavía 
quedan posiciones por localizar o 
con HUNDIDO, cuando ya han sido 
localizadas todas las posiciones del 
barco, en este momento todos los 
cuadros contiguos se llenan de 
puntos, AGUA, ya que, como 
hemos dicho antes, ningún barco 
puede estar junto a otro. 


Una vez acertada la localización de 
todos los barcos se le comunicará 
en cuántos intentos ha logrado 
destruir a «LA ARMADA 
INVENCIBLE». 


Compita con sus amistades y 
demuestre su habilidad. 


5 MODE 1 

10 PRINT TAB(9);"LA ARMADA INVENCIBLE” 

15 PRINT TAB (8) 3 RRRRRRRRRRIRDRRERRDRRRE" 

20 PRINT:PRINT 

25  PRINT * NUMERO DE BARCOS EXISTENTES”":PRINT:PRINT:PRINT 
30 PRINT * BARCO DE 4":PRINT 


35  PRINT * BARCOS DE 3*:PRINT 


1 
2 

40  PRINT " 3 BARCOS DE 2":PRINT 
4 


45 PRINT * BARCOS DE  4”:PRINT:PRINT:PRINT:PRINT:PRINT 
so PRINT * PULSA CUALQUIER TECLA PARA SEGUIR” 

55 as=INKEYS: IF as$="" THEN 55 

60 cLs 

65 DIM barcos$(10,10),pantalla$(10,10),aux$(4),cuatros$(4),tres$(2,3),dos8(3,2)| 
¡UNOS (4,1),tresx(2),do0s%(3),unoX*(4),pasarX(10) 1] 
70 intento*=0:cuatro%=0 

73 GOSUB 200:REM inicializacion 

es GOSUB 300:REM colocar barquitos 

$0 GOSUB 1000:REM imprimir pantalla 

9s GOSUB 1200:REM localizar barquitos 

100 CLS:END 

200 FOR fila*=1 TO 10 

203 FOR columna%=1 TO 10 

210 barcosS(filaX,columnax)="":pantalla$(filaX,columnaXx)="" 
215 NEXT columnax 

217 pasarktí(filax)=-1 

220 NEXT filax 

223 FOR ftilax=1 TO 2 

233 tresk(filax)=0 

240 NEXT tilax% 

245 FOR filax=1 TO a 

255 dosrítfilax)=0 

260 NEXT fílax 

265 FOR fila*=1 TO 4 

270 uno*(filax)=0 

273 NEXT tila% 

280 RETURN 

300 LOCATE 11,12:PRINT "ESPERA UN MOMENTO": tam%=4 

3053 GOSUB 500 

310 FOR k%=1 TO 4 

315 cuatroS(k%)=auxS(k%) 


320 NEXT k% 
325 GOSUB 780 


330 tam%=3 

335 FOR k%=1 TO 2 

340 GOSUB 500 

345 FOR 1%=1 TO 3 

350 tress(k%, 1%)=aux$(1%) 
355 NEXT 1% 

360 GOSUB 780 

365 NEXT k% 

370 tamk=2 


375 FOR k%=1 TO 3 


G0SUB 300 

FOR 1%=1 TO 2 
dosS(k%, 1%) =aux$(1%) 
NEXT 1% 

SosuB 780 

NEXT k% 

tamk=1 

FOR k%=1 TO 4 

GOSUB 500 

uUnoS(k%, 1)=auxS(1) 


GOSUB 780 


RETURN 

contador*=0 

RANDOMIZE TIME 
fila%=1+INT(RND*10) 
columna%=1+INT(RNDF10) 


520 IF barcos$(fila*,columna*)="" THEN barcos$(filax*, columnax)=" 
ntadork*+1:auxS(contador%*)=STR$(filaXx MOD 10)+STR$(co 


lumnaX MOD 10):ELSE GOTO 500 

525 GOSUB 700 
IF ízq% OR der% THEN aux%=columna%:ELSE auxk=fila% 
WHILE contador%<tam% 
IF izq% OR der% THEN 550:ELSE GOTO 570 
auxk=auxk+despl% 


555 IF auxX<=0 OR auxk*>=11 THEN GOSUB 740:IF +allo% THEN GOSUB 900:GOTO 500:ELS 
E GOTO 585 


560 1F barcosS(fila%,aux%*)="" THEN barcosS(+ila%,aux%*)="1":contador*=contadork+ 
l:auxS(contador%)=STRS(filak MOD 10)+STRS(auxk MOD 1 


O):ELSE GOSUB 900:GOTO 500 
565 GOTO 3585 
570 auxk=auxi+despl% 


575 IF auxk<=0 OR aux%*)>=11 THEN GOSUB 760:I1F fallo% THEN GOSUB 900:GOTO 500:ELS 
E GOTO 3583 


580 IF barcos$(auxX*,columnaX)="" THEN barcos$(aux%,columnax)="1":contador*=cont 
adork+1:auxS(contador%)=STR$(auxk MOD 10)+STR$(colum 


nax MOD 10):ELSE GOSUB 900:GOTO 500 
MEND 
RETURN 
arriba%=0:abajo*=0:izq%=0:derk=0 
azark=1+INT(RNDX12) 
IF azarí<4 THEN izq%=-1:despl%=-1 
IF azarX)>3 AND azar%<? THEN der%=-1:despl%=1 
IF azarxX>6 AND azarx<10 THEN arribax=-1:despl%=-1 
IF azarkx>9 AND azarX<13 THEN abajo%=-1:despl%=1 
RETURN 
+al1%=0:columnak=columnak-despl% 


745 1F barcos$(filaX,columnaX)= THEN barcosS$(fila%,columnaX)="1":contadork=co 
ntadorkX+1:auxS(contador%)=STRS(fila% MOD 10)+STR$(co 


lumnaX MOD 10):ELSE +tal1%=-1 
733 RETURN 
760 +tallo%=0:filak=fila%-despl% 


765 1F barcos$(filaX*,columnaX)="" THEN barcos$(fila%,columna%)="1":contadorí=co 
ntador%+1:auxS(contador%)=STRS(filak MOD 10)+STR$(co 


lumnax MOD 10):ELSE ftallo%=-1 

773 RETURN 

780 FOR i%=1 TO tam% 

785 +i%=VAL(MIDS (aux$S(1%),1,2)):co%x=VAL (MIDS(aux$(1%),3,2)) 
790 IF $i%=0 THEN fi%=10 


795 IF co%=0 THEN co%=10 


800 aux%=co%-1:auxi%=fi%-1:1F aux%>0 AND auxi%0 THEN 1F barcos$(auxi%,aux%)="" 
THEN barcos$S(auxi%,auxX)=".” 


805 auxk=co%+1:auxi%=fi%+1:1F auxi%<11 AND auxk%<11 THEN IF barcos$(auxi%,auxX)= 
** THEN barcos$(auxi%,aux%)="." 


810 auxi%=fiX-1:aux%=co%+1:1F auxi%>0 AND aux%*<11 THEN IF barcos$(auxi%, auxk)=" 
* THEN barcos$(auxi%,aux%)="." 


815 auxi%=fi%+1:auxX=co%-1:IF auxi%<11 AND aux%>0 THEN IF barcos$(auxi%,auxX)=" 
* THEN barcos$(auxi%,aux%)="." 


820 auxk=co%-1:1F auxk)>0 THEN 1F barcos$(+i%,aux%)="" THEN barcos$(fi%,auxk)=". 
. 


, 


aux%=co%+1:1F aux%<11 THEN 1F barcos$(fi%,aux%)="" THEN barcos$(+i%,aux%)= 
auxk%=fi%-1:1F aux*)»O0 THEN IF barcos$(aux%,co%x)="" THEN barcos$(aux%,co%x)="., 
auxk=ftiX%+1:1F aux%<11 THEN IF barcos$(aux%,co%)="" THEN barcos$ (aux%,co%)=" 


NEXT i% 

RETURN 

FOR i%=1 TO contador% 
+ilaX%=VAL (MIDS(auxS(1%),1,2)):columnaX=VAL (MIDS (aux$(1%),3,2)) 
IF fila%x=0 THEN filak=10 
1F columnax=0 THEN columnak=10 - 
barcoss(fi laX,col umnak)="* 
NEXT i% 

RETURN 

CLS:LOCATE 13,1 

PRINT "123453567890" 
MOVE 143,367 

DRAW 503,367 

MOVE 143,359 

DRAW 503,359 

y%=359 

FOR fila%x=1 TO 10 

y%=y%-32 

MOVE 143,y% 

DRAW 503, y% 

NEXT filax 

MOVE 175,399 

DRAW 175,39 

MOVE 183,399 

DRAW 183,39 

x*=183 


FOR tila%=1 TO 10 
xR=x +32 


MOVE x%, 399 

DRAW x%,39 

NEXT fila% 

FOR fila*=1 TO 10 

LOCATE 10,2+2*fila*:PRINT CHRA$(69+$i1a%) 
NEXT +tila% 

RETURN 

RANDOMIZE TIME 
filaX=1+ INT (RND*1O0) 
columna%=1+INT(RND*10) 
xk=filax: Yxécolumna% 

GOSUB 1500;REM poner cursor 
acabado%=0 

WHILE NOT acabado% 
as=INKEYS:IF as="" THEN 1235 


1240 IF ASC(a$)<>224 AND ASC(a$)<>240 AND ASC(a$)<>241 AND ASC(a8)<>241 AND ASC( 
28)<>242 AND ASC(a8)<>243 THEN 1235 


1245 IF ASC(as$)=242 THEN columna%=columna%-1:1F columnmax>O THEN x1%=filak:yli%=co 
lumnaX+1:y%=columna%:GOSUB 1550:ELSE PRINT CHRS(7)5: 


columnak=1 , 


1250 IF ASC(a$)=243 THEN columnar=columna%+1:1F columnax<11 THEN xi%=filak: yik=c 
olumna%-1:yX=columna%:GOSUB I550:ELSE PRINT CHR$(7)5 


¿columnak=10 


1255 IF ASC(a$)=240 THEN fila%=fila%-1:1F fila%>0 THEN x1%=+tila%+1:y1%=columnak: 
x%=filaX:GOSUB 1550:ELSE PRINT CHR$S(7)5:fila%=1 


1260 IF ASC(a$)=291 THEN +tila%=tila%+1:1F fila%<11 THEN x1%=fila%-1:y1%=columnak 
ixA=fila%:GOSUB 1550:ELSE PRINT CHRS(7);:fila%=10 


1265 IF ASC(a$)=240 OR ASC(a$)=241 OR ASC(a$)=242 OR ASC(as)=243 THEN 1420 
1270 dirs=STRS(fila% MOD 10)+STR$(columna% MOD 10): intento%*=intento%+1 
1275 1F pantallaS(fila%,columnaX)<>"" THEN GOSUB 1600:GOTO 1420 

1280 tax=1:encontrado%=0 

1285 WHILE tax<5 AND NOT encontrado% AND cuatro%< 4 


1290 IF dirs=cuatroS$(ta%) THEN encontrado%=-1:cuatro%=cuatro%+l:pantallas$(filak, 
columnaX)="1”":PRINT Pri,pantallasS(fila%,columna%);:au 


x*=cuatro%: tam%=4:GOSUB 1650 


1292 IF cuatro%*=4 AND pasar%(1) THEN pasar%(1)=0:numero%=1:;tam%=4;GO0SUB 1900:G0S FOR k%=1 TO 35000:NEXT k% 
UB 1750 

INK 0,1  - 
1295 tar=tak+1 

RETURN 
1300 WEND 

LOCATE 1,25:PRINT CHRS(18)5: INK 0,24: INK 1,1 
1305 numero%=1:ta%=1 

LOCATE 18,23:PRINT "AGUA": INK 0,1: INK 1,24 
1310 WHILE numero%<3 AND NOT encontrado% AND (tres%(1)<>3 OR tresk(2)<>3) 

RETURN 
1315 WHILE ta%<4 AND NOT encontrado% 

. FOR k%=1 TO 10 

1320 IF dirS=tres$S(numero%,ta%) THEN encontrado%=-1:trestínumero%)=trestínumeroX% 
)+l:pantallas(fila%,columna%)="1":PRINT fil,pantallas FOR 1%=1 TO 10 


(filaX*,columnaX*);:auxA=treskinumero%):; tan GOSUE 1650 barcosS(k%,1%)="" 


1322 IF tres%ínumero%)=3 AND pasar%(l+nmumero%) THEN pasar%(l+numero%)=0: tam%=3:G NEXT 1% 
OSUB 1900:GUSUB 1750 

NEXT k% 
1325 ta%=ta%+1 

GOSUB 780 
1330 WEND 

FOR k%=1 TO 10 
1335 numero%*=numero%+1:tak=1 

1783 FOR 1%=1 TO 10 

1340 WEND 


1790 IF barcos8(kX,1%)<>"" AND pantallaS(k%,1%)="" THEN pantalla$(k%X, 1%)=barcos8 


1345 numero%=1;taXx=1 (kk, 1%) :x1%=$i1a%: y I%=columnak: x%=k%:y%=1%: GOSUB 155 


1350 WHILE numero%<4 AND NOT encontrado% AND (dosXx(1)<>2 OR dos%(2)<>2 OR dosx(3 O:ftila%=k%:columnak=1% 
1:32) 
1793 NEXT 1% 
1355 WHILE tax<3 AND NOT encontrado% 
1800 NEXT k% 

1360 IF dirS=do0sS(numero%*,taX) THEN encontrado%=-1:dos%(numero%)=dosk(numeroX)+1 
ipantallasS(fila%*,columnax)="1":PRINT Ml,pantallas (+ í RETURN 
laX,columnaX);:aux%=dos% (numero%):tamk%=2:GOSUB 1650 FOR k%=1 TO numero% 
1362 IF dos%(numero%)=2 AND pasarx(3+numeroXx) THEN pasark(3+numero%)=0:;tamk=2:60 FOR 1%=1 TO tam% 
SUB 1900:GOSUB 1750 

IF tam%=4 THEN aux$(1%)=cuatro$(1%) 
1363 tar=tak+ 1 

IF tamk%=3 THEN aux$(1%)=tressS(numero%, 1%) 
1370 WEND 
. IF tam%=2 THEN auxS(1%)=do0sS(numero%, 1%) 
1373 numero%=numero%+1:;tak=1 

IF tami=1 THEN aux$S(1%)=unoS(numero%, 1%) 
1380 WEND 

NEXT 1% 
1385 numero%=1 

NEXT k% 
1390 WHILE numeroX<5 AND NOT encontrado% AND (unoX(1)<>1 OR unoX(2)<>1 OR unox(3 
)<>1 OR unok(4)<>1) RETURN 


1395 IF dirf=uno6(numero%, 1) THEN encontrado%=-1:uno%(numero%)=uno% (numeroX)+1:p 
antallaS(filaxX,columna%)="1":PRINT Mi,pantallaS(fila 


%,columnaX);:aux%=uno% (numero%):tam%=1:GOSUB 1650 


1397 IF uno%(numero%)=1 AND pasarkx(ó+numero%) THEN pasarX(ó+numero%)=0:tam%=1:G60 
SUB 1900:GOSUB 1750 


1400 numero%=numero%+1 
1405 WEND 


1410 IF NOT encontrado% THEN pantalla$(fila%*,columnakx)=".":PRINT hi,pantallaS(+i 
lax,columnaX);:GOSUB 1700 


1415 IF cuatro%=4 AND tres%(1)=3 AND tres%(2)=3 AND dos%(1)=2 AND dos%(2)=2 AND 
dos%*(3)=2 AND uno%(1)=1 AND uno%(2)=1 AND uno%(3)=1 


AND uno (4)=1 THEN acabado%=-1 

1420 WEND 

1425 PAPER M1,O:PEN M1,1:CLS MISPRINT Pi,pantalla$(filaX,columna%); 
1430 LOCATE 7,25:PRINT "PULSA UNA TECLA PARA SEGUIR” 

1435 as=INKEYS: IF as="" THEN 1435 

1440 MODE 1 


1445 LOCATE 2,12:PRINT "LO HAS CONSEGUIDO EN"zintento%;”" INTENTOS":PRINT:PRINT:P 
RINT 


1450 PRINT "  PULSA CUALQUIER TECLA PARA SEGUIR” 

1451 as=INKEYS: IF as="" THEN 1951 

1455 RETURN 

1500 PAPER M1,2:PEN Ml, 3 

1505 INK 2,24; INK 3,1 

1510 WINDOW Pri, 11+2%y%, 11+2%y%, 242%x%, 2+2%x% 

1515 CLS hi 

1520 PRINT Mti,pantallaS(x%,y%); 

1530 RETURN 

1550 PAPER Pl, O:PEN Mel, 1:CLS Ps 

1555 PRINT Mel, pantalla$(x1%,y1%)5 

1560 GOSUB 1500 

1565 RETURN 

1600 LOCATE 1,25:PRINT CHR$(18);:INK 0,24:INK 1,1 

1605 LOCATE 10,25:PRINT "DISPARO YA EFECTUADO”: INK 0,1: INK 1,24 
1610 RETURN 

1650 LOCATE 1,25:PRINT CHR$(18)5 

1660 LOCATE 15,25 

1665 IF auxk=tam% THEN PRINT “HUNDIDO"“:ELSE PRINT "TOCADO" 


1670 INK 0,2,6 


o A 


AVANCE DE LA PROGRAMACION 
DEL PROXIMO NUMERO 


ENTRE OTROS PROGRAMAS TENDREMOS: 


O Representación gráfica de una variable. 

O Gane con la lotería primitiva. 

O Cinco iguales. 

O El pensador !l. 

O El ajedrez. 

O Sin olvidar nuestro curso de introducción al Basic. 
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Deseo suscribirme a la revista AMSTRADMANIA por un año consecutivo (11 números) al 
precio de 4.312 pesetas, más 400 de envío. El primer número que deseo recibir es el .............. 


El precio de la suscripción lo abonaré: 


Contra reembolso del primer envío U 
Por talón bancario a nombre de EDITORIAL COMETA, S.A. U 


Recibo de EDITORIAL COMETA, S. A., en concepto de inscripción anual hasta nueva orden, 
a la revista AMSTRADMANIA. 


Potosí, 1 - 28016 MADRID - Teléfono 276 13 60 


POR 617.500 pts. DE ENTRADA Y 15 AÑOS DE FALICIDADES 


Ideal para fines de semana y vacaciones. 


Zona deportiva, Club Náutico, Piscina, 
Frontones, Tenis, etc... 


LLAVES EN MANO 


A SOLO 70 MINUTOS DE MADRID 


Teléfs. 261 40 73.- 261 40 79 


